home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a03.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
672b
|
22 lines
1000 'A03.BAS**************************************************T.K.MOSAKU
1010 SCREEN@ 0
1020 CLS
1030 PI=3.14159!:C=1:COLOR 7
1040 POINT (320,240)
1050 A$="☆☆☆ 16枚の葉をもつ正葉形を描いています。☆☆☆"
1060 AA$="正 葉 形"
1070 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$
1080 AA=LEN(AA$):BB=(80-AA)\2:LOCATE 0,21:PRINT SPACE$(BB)+AA$
1090 T1=TIME
1100 FOR T=40 TO 120 STEP 20
1110 FOR I=O TO 2*PI+.2! STEP .02!
1120 X=320+T*SIN(8*I)*COS(I)
1130 Y=240+T*SIN(8*I)*SIN(I)
1140 LINE -(X,Y),PSET,C
1150 NEXT
1160 C=C+1
1170 NEXT
1180 T2=TIME:T=T2-T1:LOCATE 5,2:PRINT "書くのに要した時間 約";T;"秒"
1190 WAIT 100
1310 '